home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue51 / Construc / WebMod51.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1999-09-27  |  3.1 KB  |  101 lines
  1. unit WebMod51;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Classes, HTTPApp, CompProd, PagItems,
  5.   MidProd, XMLBrokr, Db, DBClient, MConnect, MidItems, ImgButtons,
  6.   QueryComps, ShowXML, ReconcileProd;
  7.  
  8. type
  9.   TWebModule2 = class(TWebModule)
  10.     DCOMConnection1: TDCOMConnection;
  11.     XMLBroker1: TXMLBroker;
  12.     CustomerOrdersMidasPageProducer: TMidasPageProducer;
  13.     QueryForm1: TQueryForm;
  14.     QueryButtons1: TQueryButtons;
  15.     DataForm1: TDataForm;
  16.     DataGrid1: TDataGrid;
  17.     ImgDataNavigator1: TImgDataNavigator;
  18.     FieldGroup1: TFieldGroup;
  19.     ImgDataNavigator2: TImgDataNavigator;
  20.     NextXMLPacketButton: TSubmitQueryButton;
  21.     QueryFieldGroup1: TQueryFieldGroup;
  22.     HiddenRecNo: TQueryHiddenText;
  23.     ReconcilePageProducer1: TReconcilePageProducer;
  24.     CustNo: TFieldText;
  25.     Company: TFieldText;
  26.     Addr1: TFieldText;
  27.     City: TFieldText;
  28.     State: TFieldText;
  29.     Zip: TFieldText;
  30.     Country: TFieldText;
  31.     Contact: TFieldText;
  32.     FieldStatus1: TFieldStatus;
  33.     OrderNo: TTextColumn;
  34.     CustNo2: TTextColumn;
  35.     SaleDate: TTextColumn;
  36.     ShipDate: TTextColumn;
  37.     ShipVIA: TTextColumn;
  38.     ItemsTotal: TTextColumn;
  39.     AmountPaid: TTextColumn;
  40.     StatusColumn1: TStatusColumn;
  41.     procedure WebModule2WebActionItem1Action(Sender: TObject;
  42.       Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
  43.     procedure XMLBroker1RequestRecords(Sender: TObject;
  44.       Request: TWebRequest; out RecCount: Integer;
  45.       var OwnerData: OleVariant; var Records: String);
  46.   private
  47.     { Private declarations }
  48.   public
  49.     { Public declarations }
  50.   end;
  51.  
  52. var
  53.   WebModule2: TWebModule2;
  54.  
  55. implementation
  56. {$R *.DFM}
  57. uses
  58.   MainUnit;
  59.  
  60. procedure TWebModule2.WebModule2WebActionItem1Action(Sender: TObject;
  61.   Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
  62. const
  63.   Str = 'Next set of %d records (currently showing %d-%d)';
  64. var
  65.   RecNo: String;
  66.   RecNr: Integer;
  67. begin
  68.   RecNo := Request.QueryFields.Values['HiddenRecNo'];
  69.   if RecNo <> '' then
  70.   try
  71.     RecNr := StrToInt(RecNo)
  72.   except
  73.     RecNr := 0
  74.   end;
  75.   NextXMLPacketButton.Caption :=
  76.     Format(Str,[XMLBroker1.MaxRecords,
  77.                 RecNr+1,RecNr+XMLBroker1.MaxRecords]);
  78.   HiddenRecNo.Text := IntToStr(RecNr+XMLBroker1.MaxRecords);
  79.   Log('HiddenRecNo #1: '+HiddenRecNo.Text);
  80.   if DComConnection1.Connected then Log('DCOMConnection = True')
  81.                                else Log('DCOMConnection = False');
  82.   { next statement may cause XMLBroker to Request Records }
  83. //DComConnection1.Connected := True;
  84.   Response.Content := CustomerOrdersMidasPageProducer.Content;
  85. //DComConnection1.Connected := False
  86. end;
  87.  
  88. procedure TWebModule2.XMLBroker1RequestRecords(Sender: TObject;
  89.   Request: TWebRequest; out RecCount: Integer; var OwnerData: OleVariant;
  90.   var Records: String);
  91. begin
  92.   OwnerData := IntToStr(StrToInt(HiddenRecNo.Text) - XMLBroker1.MaxRecords);
  93.   Log('HiddenRecNo #2: '+HiddenRecNo.Text);
  94.   Log('Out RecCount: '+IntToStr(RecCount));
  95.   if DComConnection1.Connected then Log('DCOMConnection = True')
  96.                                else Log('DCOMConnection = False');
  97. end;
  98.  
  99. end.
  100.  
  101.